﻿Public Class YararlananlarListesi2009 : Inherits YararlananlarListesi

	Sub New()
		MyBase.New()
		yil = 2009
	End Sub

End Class


Public Class YararlananlarListesi
	Inherits ProcessReport

	Public yil As Integer

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Yararlananlar Listesi", "")
			Case EventType.Shown
				Rs = Hukuk.Af.YararlananlarListesi(Local, yil)
				Report.Restart()
			Case EventType.PageHeader
				Report.PrintReportInfo("AFTAN YARARLANANLAR LİSTESİ", "AF DÖNEMİ : " & yil)
				Report.SetColumns("Kimlik no.;Sigorta no.;İşyeri no.;Kişi/Kurum adı;Peşin tar.", "2;2;2;5;2", "c;c;c;l;d", "--")
			Case EventType.ReportDetail
				For Each Row In Rs
					Report.Print(Rs("kimlik"), Rs("sno"), Rs("isyerino"), Rs("adi"), Rs("pesintar"))
				Next
		End Select
	End Sub

End Class
